Option Strict Off
Option Explicit On
Imports MMUtil.clsGeneral
Imports Microsoft.VisualBasic.PowerPacks.Printing.Compatibility.VB6
Friend Class frmTATState
	Inherits System.Windows.Forms.Form
	
	Private Sub cmdClose_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdClose.Click
		Me.Close()
	End Sub
	
	Private Sub cmdSear_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdSear.Click
		
		ClearSpread(vasList)
		
	End Sub
	
	Private Sub frmTATState_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		dtpStrDate.Value = VB6.Format(GetDateFull, "YYYY-MM-DD")
		dtpEndDate.Value = VB6.Format(GetDateFull, "YYYY-MM-DD")
		'dtpStrDate.Value = Format(dtpEndDate.Year, "####") & "-" & Format(dtpEndDate.Month, "0#") & "-" & "01"
		'dtStrDate.Value = DateAdd("d", -7, dtpEndDate.Value)
		
		ClearSpread(vasList)
	End Sub
End Class